home *** CD-ROM | disk | FTP | other *** search
/ Apple II Magazines (DO) / Nibble Volume 09, No. 10 (1988-10)(MicroSPARC)(Side B).zip / Nibble Volume 09, No. 10 (1988-10)(MicroSPARC)(Side B).do / FLASH.S < prev    next >
Text File  |  1996-12-24  |  957b  |  44 lines
  1. * HI.RES.FLASH Source Code
  2. * By Phil Goetz
  3. * Copyright(c) 1988
  4. * MicroSPARC, Inc.
  5. * Concord, MA 01742
  6. *
  7. * Merlin Pro Assembler
  8. *
  9.           ORG $300       ;CAN BE RE-ASSEMBLED ANYWHERE
  10. BASICENT  LDY $6         ;MEMORY PAGE LOCATION
  11. MACHENT   LDA $E6
  12.           STA INVERSE1+2
  13.           STA STORE1+2
  14.           STA INVERSE2+2
  15.           STA STORE2+2
  16.           CLC
  17.           ADC #$20
  18.           STA LIMIT+1
  19.           LDA COLEVEN,Y
  20.           STA FLASH1+1
  21.           LDA COLODD,Y
  22.           STA FLASH2+1
  23.           LDY #0
  24. FLASH1    LDA #0
  25. INVERSE1  EOR $0000,Y
  26. STORE1    STA $0000,Y
  27.           INY
  28. FLASH2    LDA #0
  29. INVERSE2  EOR $0000,Y
  30. STORE2    STA $0000,Y
  31.           INY
  32.           BNE FLASH1
  33.           INC INVERSE1+2
  34.           INC STORE1+2
  35.           INC INVERSE2+2
  36.           INC STORE2+2
  37.           LDA INVERSE1+2
  38. LIMIT     CMP #0
  39.           BNE FLASH1
  40.           RTS
  41. COLEVEN   DFB $0,$55,$2A,$7F,$80,$D5,$AA,$FF
  42. COLODD    DFB $0,$2A,$55,$7F,$80,$AA,$D5,$FF
  43. *        END
  44.